www.gusucode.com > 婚庆仪礼策划公司网站系统源代码 梦紫色 > 婚庆仪礼策划公司网站系统源代码 梦紫色/Admin/inc/order_body.asp
<%sub order_body() dim totalnews,Currentpage,totalpages,i sql="select * from order1 order by id DESC" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %> <HTML><HEAD><TITLE>管理中心</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK href="inc/djcss.css" type=text/css rel=StyleSheet> <META content="MSHTML 6.00.2800.1126" name=GENERATOR> </HEAD> <body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) background=inc/dj_bg.gif> <table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse"> <tr> <td align="center" valign="middle" bgcolor="#E8E8E8">订购管理</td> </tr> <tr bgcolor="#E8E8E8" align="center"> <td class="chinese" width="10%" bgcolor="#F5F5F5">编号</td> <td class="chinese" width="70%" bgcolor="#F5F5F5">简要信息</td> <td class="chinese" width="20%" bgcolor="#F5F5F5">操作</td> </tr> <%if Not rs.EOF then dim newsperpage dim page1 newsperpage=10 rs.movefirst rs.pagesize=newsperpage if trim(request("page"))<>"" then page1=trim(request("page")) if check_num(page1)=true then currentpage=clng(request("page")) if currentpage>rs.pagecount then currentpage=rs.pagecount End if else currentpage=1 end if else currentpage=1 End if totalnews=rs.recordcount if currentpage<>1 then if (currentpage-1)*newsperpage<totalnews then rs.move(currentpage-1)*newsperpage dim bookmark bookmark=rs.bookmark End if End if if (totalnews mod newsperpage)=0 then totalpages=totalnews\newsperpage else totalpages=totalnews\newsperpage+1 End if i=0 Do While Not rs.EOF and i<newsperpage%> <tr> <td bgcolor="#FFFFFF" class="chinese" align="center"> <%=rs("id")%></td> <td bgcolor="#FFFFFF" class="chinese">文章名称:<%=rs("proname")%></td> <td bgcolor="#FFFFFF" class="chinese" align="center"><a href="admin_order.asp?id=<%=rs("id")%>&action=vieworder">查看</a> <a href="admin_order.asp?id=<%=rs("id")%>&action=delorder">删除</a></td> </tr> <%i=i+1 rs.movenext loop else if rs.EOF and rs.BOF then%> <tr align="center"> <td bgcolor="#FFFFFF" colspan="3" class="chinese"> </td> </tr> <%End if End if%> </table> </table> <table align="center" width="98%" border="0" cellspacing="0" cellpadding="0"> <form name="form2" method="post" action="admin_order.asp"> <tr> <td class="chinese" align="right"><%=currentpage%> /<%=totalpages%>页,<%=totalnews%>条记录/<%=newsperpage%>篇每页. <% i=1 showye=totalpages if showye>10 then showye=10 End if for i=1 to showye if i=currentpage then %> <%=i%> <%else%> <a href="admin_news.asp?page=<%=i%>"><%=i%></a> <%End if next if totalpages>currentpage then if request("page")="" then page=1 else page=request("page")+1 End if%> <a href="admin_news.asp?page=<%=page%>" title="下一页">>></a> <%End if%> <input type="text" name="page" class="textarea" size="4"> <input type="submit" name="Submit" value="Go" class="button"></td> </tr> </form> </table> <% if request.QueryString("action")="vieworder" then if request.querystring("id")="" then errmsg=errmsg+"<br>"+"<li>请指定操作的对象!" Call diserror() response.End else if Not isinteger(request.querystring("id")) then errmsg=errmsg+"<br>"+"<li>非法的ID参数!" Call diserror() response.End End if End if sql="select * from order1 where id="&cint(request.querystring("id")) set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if Not(rs.BOF or rs.EOF) then %> <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#e5e5e5"> <form action="admin_order.asp" method="post" name="form0" target="_self"> <input name="action" type="hidden" value="delorder"> <input name="id" type="hidden" value=<%= cint(request.querystring("id")) %>> <tr bgcolor="#FFFFFF"> <td height="25" colspan="6" bgcolor="#F5F5F5"> 查看订购信息 客户名称:<span class="chinese"><%=rs("company")%></span> 订购时间:<span class="chinese"><%=rs("ordertime")%></span></td> </tr> <%proname=rs("proname") proxh=rs("proxh") num=rs("num") proname = Split(proname,",") proxh = Split(proxh,",") num = Split(num,",") for i=0 to ubound(proname)%> <tr bgcolor="#FFFFFF"> <td width="13%" height="25" align="right" valign="middle">文章名称:</td> <td width="16%" height="25"><span class="chinese"><%=rs("proname")%></span></td> <td height="25">文章型号:</td> <td height="25"><span class="chinese"><%=rs("proxh")%></span></td> <td height="25">订购数量:</td> <td height="25"><span class="chinese"><%=rs("num")%></span></td> </tr><%next%> <tr bgcolor="#FFFFFF"> <td height="25" align="right" valign="middle"> 联系地址:</td> <td height="25" colspan="5"><span class="chinese"><%=rs("addr")%></span></td> </tr> <tr bgcolor="#FFFFFF"> <td align="right" valign="middle">联系电话:</td> <td bgcolor="#FFFFFF"><span class="chinese"><%=rs("tel")%></span></td> <td width="9%" bgcolor="#FFFFFF">传 真:</td> <td width="20%" bgcolor="#FFFFFF"><span class="chinese"><%=rs("fax")%></span></td> <td width="11%" bgcolor="#FFFFFF">联系人:</td> <td width="31%" bgcolor="#FFFFFF"><span class="chinese"><%=rs("linkman")%></span></td> </tr> <tr bgcolor="#FFFFFF"> <td height="25" align="right" valign="middle"> 备注信息:</td> <td height="25" colspan="5"><span class="chinese"><%=rs("bz")%></span></td> </tr> <tr align="center" valign="middle" bgcolor="#FFFFFF"> <td height="30" colspan="6"><input type="submit" name="Submit" value=" 删除 " class="button"> <input type="button" name="Submit" value=" 返回 " onClick="javascript:history.back()" class="button"></td> </tr> </form> </table> <% End if End if %> <br> </td> </tr> <tr> <td colspan="3" height="1" background="images/dotlineh.gif"></td> </tr> </table> <% rs.close set rs=Nothing End sub%>